#!/usr/bin/perl
# diskswap.cgi in diskman

require './diskman-lib.pl';

&ReadParse();

$dev = $in{'disk'};
`lvm pvcreate $dev`;
&redirect("index.cgi");
